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COPYRIGHT (c) 1978, 1980, 1982, 1984 B 
thee EQUI PMENT 1 CORPORATION, MAYNARD. MASSACHUSETTS. 
RIGHTS RESERVED 


THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY BE USED AND COPIED 
ONLY IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE AND WITH THE 
INCLUSION OF THE ABOVE Se a etaee NOTICE. THIS SOFTWARE OR ANY OTHER 
COPIES THEREOF MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY 

HER PERSON. NO. TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY 
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++ 
Facility: FAL (DECnet File Access Listener) 


Abstract: 


This module contains action routines called by the state table manager. 


Environment: VAX/VMS, user mode 
Author: James A. Krycka, Creation Date: 16-JUN-1977 
Modified By: 


V03-007 JAK0136 rycka 07-MAR-1984 
Support FAL beaetan As ried that deal with fields in the DAP 
Configuration message sent to partner. 


v03-006 goxests JA 12-JUL-1983 
x bug in eeveuseten xfs * DAP KEY field. 


v03-005 KRM0104 K Malik 10-May-1983 
Update symbols to match Dap V7.0 spec. 


V03-004 JAKO104 J A Krycka 29-APR-1983 
Make minor enhancements to FAL logging display. 


v03-003 KRM0083 Malik 23-Mar-1983 
Add support for SINC and STMCR formats. 
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“-SEP- FAL.SRC [ACT MSG.MAR;1 
900 38 ; v03-002 KRM0074 K Malik 23-Nov-1982 
009 2h : Added FALSDECODE* NAM routine (to support SRENAME function). 
00 61; v03-001 JAK0101 Krycka 09-0CT-1982 
44 ? 3 Fix bug in convertias AP OWNER value into binary format. 
0000 64 i= 
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Include Files: 


SDAPPLGDEF 


SDAPPRODEF 
SOAPNAMDEF 
SDEVDEF 


$F ABDEF 
$F ALWRKDEF 
SRABDEF 
SXABDEF 
SXABALLDEF 
SXABDATDEF 
SXABKEYDEF 


$SXABPRODEF 
SXABRDTDEF 
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ASSUME DAP$Q_DCODE _FLG EQ 0 
ASSUME FALS$Q-FLG EO 0 
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DAP prologue symbols 

DAP message header 

DAP system specific field 

DAP Configuration message 

DAP Attributes message 

DAP Access message 

DAP Control message 

DAP Continue Transfer message 

DAP Access Complete message 

DAP Key Definition message 
Allocation message 

DAP Date and Time message 

DAP Protection message 

DAP Name message 

Device Characteristics symbols 

File Access Block ayeeese 

FAL Work Area symbols 

Record Access Block sym*t* 

prope: common to all XABs 

Allocation XAB symbols 

Date and Time XAB symbols 

Key Definition XAB symbols 

Protection XAB symbols 

Revision Date and Time symbols 
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~SBTTL ACTION ROUTINES 

~PSECT FALSCODE NOSHR ,EXE,RD,NOWRT ,BYTE 


++ 
Functional Description: 


This module contains action routines invoked by the state table 
manager (FALSSTATE). 


The TT parameters and completion codes Listed below are applicable 
for all of these action routines. Note that an action routine may use 
RO-R7 and AP without poster ing them on exit. RO on exit, however, must 
represent a status code to indicate success/failure of the routine or 
a true/false condition, as appropriate. This status code is used by 
the state table manager to advance to the next state. 
; Calling Sequence: 

BSBW FALS$name 
Input Parameters: 


R8 Address of FAL work area 


R9 Address of DAP control block 
R10 Address of FAB 
R11 Address of RAB 


Implicit Inputs: 
None 
Output Parameters: 


RO Status code 
R1i-R7 Destroyed 
AP Destroyed 


Implicit Outputs: 
None 
Completion Codes: 
RO 1 = success; 0 = failure 
; Side Effects: 
None 
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v04-000 FALSDECODE_CNF 7$eE 382 Bt iFes3$ LPAL SRCJPALACTMSG.MAR: 1 . (4) 
000 196 -SBTTL FALSDECODE_CNF | 
166 p++ 
167 ; Process the Configuration message which has been received and validated. 
00 168 ; Return a Configuration message to partner and determine the DAP buffer size 
$8 199 ; to use which is the smaller of partner's buffer size and FAL's buffer size. | 
ge 
00 171 
000 172 FALSDECODE. CHF: ; Entry point | 
000 17 SSETBIT #FALSV_CNF_MSG, (R8) 3 Denote Configuration message received 
0004 He SCLRBIT #FALSV_ATT_MSG, (R8) ; and discard any previous Attributes 
3; _messa 
57 18A8 3C $008 178 MOVZWL FALS$W_QIOBUFSIZ(R8),R7 ; Get PA's buffer size (i.e., largest 
000c 17 ; 1/0 buffer size spear ee by process) 
68 ae E1 BeoE 178 BBC rte pe USE_DBS,(R8),- ; Branch to use calculated buffer size 
57 OOAO0 CB 3C¢ bo19 130 MOVZWL FAL$Q_USE_DBS(R8),R7 ; Override with user specified value 
0015 13 i+ 
0015 183 ; Build and send Configuration message to partner. 
0015 13 = 
0015 185 
0015 186 SEND_CNF: : 
0015 187 SSETBIT #FALSV_LAST_MSG, (R8) ; Declare this last message to block 
50 01 DO 0019 188 MOVL #DAPSK_CNF_ASG,RO ; Get message type value 
FFE1" 30 OO1C 189 BSBW FALSBUILD_READ ; Construct message header 
83 57 BO OOI1F 190 MOVW R7,(R3)+ ; Store BUFSIZ field 
83 07 90 0022 191 MOVB #DAPSK_VAXVMS, (R3)+ ; Store OSTYPE field 
83 93 90 OOS8 138 MOVB #DAPSK_RMS32, (R3)+ : Store FILESYS field 
68 A €1 0028 19 8B #FALSV_USE_SYS,(R8),2$ ; Branch to use standard values 
OOA2 C8 80 90¢¢ 194 MOVW  FALSW_OSE SYS(R8),-2(R3); Override with user specified values 
83 07 90 00 é 195 2$: MOVB #DAPSR_VERNUM_V,(R3)+  ; Store VERNUM field 
83 00 90 003 196 MOVB #DAPSK_ECONUM_V,(R3)+  ; Store ECONUM field 
83 CO 90 0038 197 MOVB #DAPSK_USRNUM_V,(R35)+  ; Store USRNUM field 
83 04 90 Q03B 198 MOVB #DAPSK_DECVER_V,(R3)+ ; Store DECVER field 
06 68 38 €1 OO3E 199 BBC #FALSV-USE VER, (R8),4$_; Branch to use standard values 
FC AS O00A4 C8 = 00 Opes 200 MOVL FALSL_OSE_VER(RB),-4(R3); Override with user specified values 
83 00 90 0048 1 4$: MOVE  #DAPSR_USRVER_V,(R3)+  ; Store USRVER field 
0048 08 : - 
0048 04 ; Construct the system capabilities field. 
0048 05 ; Also, check the debugging options to disable message block ing and DAP level 
0048 $ 3; CRC checking (after any user specified system capabilites bitmasks, if any, 
8 48 ; have been applied). 
O48 509° | 
51 EFF67DF7 8F D0 o%8 10 MOVL $#DAPSK_SYSCAP1_V,R1 ; Get VAX suppor ted capabilities 
52 00001962 8F 00 005 11 MOVL #DAPSK_SYSCAP2_V,R2 3 Quadword bitmask 
59 \¢ j cecee- process debugging options ----- 
68 3C_ €1 59 1 BBC #FALSV_USE_SC1,(R8),6$ ; Branch to use standard values 
51 OOA8 cs DO 005D «214 MOVE FALSE OSE SC1(R8) Ri =: Override with user specified values | 
05 6 D €1 0062 15 6$: BBC FAL$0_USE_SC2,(R6),8$ ; Branch to use standard values 
52 pa 8 DO 0066 16 MOVL FAL t OSE _SCOC(RB) Re 3; Override with user specified values 
oF t 1 €1 068 17 8$: FAL q DIS _MBK (R8),10$ ; Is DAP message blocking disabled? 
51 00140000 8F CA F H+ BICL2 #<<laDdAP VIMSGBLK>! = ; Yes, clear message blogk ing bits in 
; 6 1 <1aDAP$V_BIGBLK>!- : system capabilities bitmask for. 
76 20 oR ; Configuration message to transmit 
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28 AD =00140000 BF SCA 76 1 BICL2 #<<1@DAP$V_MSGBLK>!- ; Also, clear message blocking bits in 
7E § <1QDAP$V_BIGBLK>!- 3 system capabilities bitmas 
7E 0>,DAPSQ_SYSCAP(R9) 3; received from partner 
09 68 30 €1 7 4 10$: BBC #FALSV_DTS CRC,(R8),20$ ; Is file level CRC checksum disabled? 
0 5 SCLRBIT #DAP$V-DAPCRC.A1 : Yes, clear bits in both XMT and RCV 
0 § SCLRBIT #DAP$V_DAPCRC,- i; system capabilities fields 
086 DAP$Q_SYSCAP(R9) : 
088 8 j ctecee finish debugging options ----- 
FF72* 30 8 B 9 208: BSBW FALSCVT_BN8_EXT ; Store SYSCAP as an extensible field 
FF6F' 30 8 ‘ 0 BSBW = FALS$BUICD_TAIL 3 Finish bul ding message 
FF6C* 30 0094 BSBW FALSTRANSAIT ; Send Configuration message 
94 3+ 
0094 4 ; Determine the ‘agreed upon’ DAP buffer size to use and save this value. 
Oe é 3; It is the smaller of partner's buffer size and FAL's maximum buffer size. 
0094 x 
40 A9 =BO 0094 8 MOVW DAPS$W_BUFSIZ(R9),- ; Assume we'll use partner's 
1A AB 0097 9 F AL SW~DAPBUF $12 (R8) ; buffer size 
06 13 0099 40 BEQL 30 ; Branch if partner has unlimited space 
57 40 A9 B61 0098 41 CMPW DAP$W_BUFSIZ(R9) ,R7 ; Compare partner's buffer size wit 
OO9F rt: ; _our buffer size 
04 1B OO9F 4 BLEQU§ 40$ ; Branch if partner has less capacity 
1A AB «57 =6BOO0AI 44 30S: MOVW R7,FAL$W_DAPBUFSIZ(R8) ; We guessed wrong, so we'll use 
QOAS 45 ; _our buffer size 
04E4 31 OOAS 246 408: BRW EXIT_SUCCESS ; Exit state with success 
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v04-000 FALSDECODE_ATT g-3tE 19 4 81:76:36 LRAL SRCJFALACTMSG MAR; 1 _ 
OOA rf ~SBTTL FALSDECODE_ATT 
OA 4 
Q0h 50 ;++ 
OA 51 ; Process the Attributes egecone which has been received and validated. 
OOh 26 ; Update the FAB and FHCXAB with information from this message. 
OA 54° 
BRA 2? FALSDECODE_ATT:: ; Entry point 
BO Ae 3? SSETBIT #FALSV_ATT_MSG, (R8) ; Denote Attributes message received 
AC 59 ; 
boat 60 ; Save the DAP DATATYPE field for use Later. 
BeBe 
O1F4 C8 44 AQ 90 Boas e§ MOVB DAPSB_DATATYPE(R9) ,FAL$B_DATATYPE (R8) 
SOBs 65 ; 
008 66 ; Process the DAP ORG, RFM and RAT fields. 
008 67 ; 
008 68 
008 69 ASSUME DAPSK_SEQ EQ FABS$C_SEQ 
008 70 ASSUME DAPSK_REL EQ FABSC_REL 
pee 4 ASSUME DAPSK_IDX EQ FABSC_IDX 
Bees 73 MOVB DAPS$B_ORG(R9) , FABSB_ORG(R10) 
0087 373 ASSUME DAPSK_UDF EQ FABSC_UDF 
0087 76 ASSUME DAPSK_FIX EQ FABSC_FIX 
0087 277 ASSUME DAPSK_VAR EQ FABSC_VAR 
0087 278 ASSUME DAPSK-VFC EQ FABSC_VFC 
0087 79 ASSUME DAPSK_STM EQ FABSC_STM 
0087 80 ASSUME DAPSK-STMLF EQ FABSC_STMLF 
4 $B) ASSUME DAPSK_STMCR EQ FABSC_STMCR 
ae: 288 MOVB DAPSB_RFM(R9) ,FABSB_RFM(R10) 
00BC 82 ASSUME DAPSV_FTN EQ FABSV_FIN 
00BC 6 ASSUME DAPSVICR EQ FABSV~CR 
00BC 87 ASSUME DAPSV_PRN EQ FABSV_PRN 
tits HY ASSUME DAPS$V_BLK EQ FABSV_BLK 
00BC 90 MOVB DAP$B_RAT(R9) ,FABSB_RAT (R10) Z 
0c} 91 BICB2 #DAPSA_EMBEDDED,- : Ignore this bit 
0c3 35 FABSB_RAT(R10) 3 
OA 69 34 0 bors 9 BBS #DAPST_VAXVMS,(R9),10$ =; Branch if partner is VAX/VMS 
04 46 ey 4 Ree Be re DAPSB_RFMCR9) , ADAPSK_STM; Branch if not stream format 
1E AA 02 9 Boer 36 MOVB #FABSM_CR,FABSB_RAT(R10); If it is, declare cc to be implied 
D 98 ; 
+ 3; Process the DAP BLS, MRS, ALQ, BKS, FSZ, MRN, and DEQ fields. 
D . > 
CAA 48 A9 B D 10$: MOVW par ee OL SRD) oF Abey BLS (hI) 
6 AA 4A AD 8B D MOVW DAPSW_MRS(R9) ,FABSW_MRS(R10) 
10 AA 4C Ad dO DD 04 MOVL DAP$L~ALQ1(R95 ,FABSC_ALQ(R10) 
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—E AA 0Oa9 9 ES 05 MOVB DAP$B_BKS(R9) , FABSB_BKS(R10) 
F AA 1Aa9 9 E § MOVB DAPSB_FSZ(R9) ,FABSB_FSZ(R10) 
8 AA BAD D EC MOVL DAPSL_MRN(RY) byt MRN(R10) 
14 AA 5409 8B oF] 8 MOVW  DAPSWIDEQ1(R9) ,FABS@_DEQ(R10) 
OF6 10 ; 
peee 12 ; Process the DAP FOP field after saving it for use later. 
O0F6 313° 
64 A9 DO OOF6 14 MOVL DAPSL_FOP1(R9) ,R1 ; Get DAP FOP bits and 
O1F8 C8 51 b0 OFA 315 MOVL  R1,FACSL_FOP(RS) : save field for use Later 
0342 OFF 18 BSBW MAP_FOP_FIELD : Update FOP in FAB 
10 18 ; 
010 19 ; Process the DAP LRL field. : 
Ht 0 ; This is the only FHCXAB field that is input to RMS, and then only for the 
B10 3; SCREATE function where the record format is variable or VFC. 
10 23° 
70 A 80 $10 24 MOVW DAPS$W_LRL(R9) ,- ; Copy value to FHCXAB 
02F4'C8 0105 325 FALSL-FHCXAB+XABSW_LRL(RB) 
0481 31 0108 326 BRW EXIT_SUCCESS ; Exit state with success 
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108 8 -SBTTL FALSDECODE_ACC 
18H 
108 1 : Process the Access message which has been received and validated. 
138 ¢ : Update the FAB with information from this message. 
108 4° 
198 5 FALSDECODE_ACC:: 3; Entry point 
8 
ite 8 $ Save the DAP ACCFUNC, ACCOPT, and DISPLAY fields for use Later. 
108 340° 
O1F6 C8 40 A9 90 0108 41 MOVB DAP$B_ACCFUNC(R9) ,FAL$B_ACCFUNC (R8) 
O1F5 C8 «041 AD 90sO0111 4¢ MOVB §DAP$B-ACCOPT(R9) ,FAL$SB_ACCOPT(R8) 
70 AB =4C AD BO O17 43 MOVW  DAPSWIDISPLAY1(R9) ,FALSW_DISPLAY(R8) 
011C 45 ; 
011C 46 ; Process the DAP file specification field. 
Oe 348 
44 09 90 O11C 325 MOVB DAPS$Q_FILESPEC(R9) ,- ; Store size of filespec string 
34 AA O11F 350 FABSB_FNS(R10) : n 
44, a9 28 0121 351 MOVC3 DAPS$Q FILESPEC(RY),- 3; Copy filespec string to buffer 
48 89 815¢ 326 @DAPSO_FILESPEC+4(R9),=- ; 
2C BA 0126 5 @F ABSL_FNA(R10) : 
51 40 A9 9A 0128 54 MOVZBL DAP$B_ACCFUNC(R9) ,R1 ; Get access funct‘on code 
52.44 AY E 012C 55 MOVAQ DAPSQ-FILESPEC(R9S,R2 ; Get address of filename descriptor 
FECD' 30 4 9 2$ BSBW FALSLOG_REQNAM ; Log requested name in print file 
0133 58 ; 
bi 33 59 ; Process the DAP FAC field. 
O133 Sel 
O13 6¢ ASSUME DAP$V_PUT EQ FABSV_PUT 
01 6 ASSUME DAP$V_GET EQ FABSV_GET 
01 64 ASSUME DAPS$V—DEL EQ FABSV~DEL 
01 65 ASSUME DAPS$V_UPD EQ FABSV_UPD 
01 66 ASSUME DAPSV_TRN EQ FABSV_TRN 
01 67 ASSUME DAP$V_BIO EQ FABS$V_BIO 
01 68 ASSUME DAP$V_BRO EQ FABSV_BRO 
$9 ASSUME DAPSVAPP EQ FABSVIEXE ; Map APP to PUT 
16 AA 42 AY 20 1 71 MOVB DAP$B_FAC(R9) ,FABSB_FAC(R10) 
05 16 AA O07 ~€5 01 rg BBCC #FABSO_EXE,FABSB_FAC(R10) ,10$ 
00 16 AA 00 2 b105 t BBSS #F ABSV_PUT,FABSB_FAC(R10),10$ 
14 12 3 
1? 1 3; Process the DAP SHR field. 
14 : 
3 D4 014 8 10$ CLRL R2 ; Clear RMS SHR bits 
51 43 A GA 0144 MOVZBL DAPS$B_SHR(R9),R1 3; Get DAP SHR bits 
30 13 0148 1 EQL ; Branch if no bits to map 
14A ¢ SMAPBIT DAPSV_SHRPUT .FABSV_SHRPUT; Map SHRPUT bit 
136 SMAPBIT DAPSV_SHRGET,FABSV_SHRGET; Map SHRGET bit 
15A 4 SMAPBIT DAPSV_SHRDEL,FABSV_SHRDEL; Map SHRDEL bit 


FALACTMSG 16-SEP-1984 01:36:46 VAX/VMS Macro V04-00 Page 10 FA 
04-000 BS Ee 1986 Ol itecay Lea eacttacactncconars;1 Paae 10, V 


$MAPBIT DAPS$V_SHRUPD,FABSV SHRUPD; Map SHRUPD bit 
$MAPBIT DAPSV-UPI, FA ABSV_UPT :' Map UPI bit 
SMAPBIT DAPSV"NIL.F ABSy VeNIL ; Map NIL bit 
17 AA 52. 90 20S: OVB R2,FABSB_SHR : Update SHR field in FAB 


MOVB eth VALUER) - ; Store new state transition value 
0 E1 BBC #DAP$97_LOAD,- : Branch if no system specific 
OA 0084 ¢9 DAPSL SSP-FLG(R9) 308: “function modi tion fanned 


SSETBIT FFAS. $00, FASSL FOP(R105 
: Force sequential file transfer 
: mode for efficiency 
MOVB yiyts K_LOAD,=- : Make new state transition value 
FAL$B_QALUE (RB) 3; the load image function 
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01 BRW EXIT_SUCCESS 
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| 
Use the ACCFUNC field value as the next state table value. 
; Exit state with success 
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v04-000 FALSDECODE_CTL BrSEpa19 4 Bt iie:34 URAL. SRCIPALACTMSG. MAR: 1 wees | v04 
136 8 -SBTTL FALSDECODE_CTL 
198 d 3 ;++ 
196 608 : Process the Control message which has been received and validated. 
132 rh ; Update the RAB with information from this message. 
196 411° 
196 216 FALSDECODE_CTL:: 3; Entry point 
196 14 
196 415 : Save the DAP DISPLAY field for use Later if we're not in a wildcard context. 
130 £18 : In wildcard file retrieval, for example, the DAP Access erences is sent only 
19 417 ; once, thus FALSW_DISPLAY must reflect the DISPLAY value from the Access 
0196 $18 3 message on subsequent file opens. Since the Control message functions of 
0196 419 ; DISPLAY and EXTEND are not valid in a wildcard context (which require 
0196 420 ; FALSW_DISPLAY to be updated), this special check is an acceptible solution 
0196 421 ; to a wildcard retrieval problem. 
b196 438° 
68 oA E0 0198 ? : BBS eee ; Branch if wildcard operation 
54 A9 BO O19A 426 MOVW  DAPSW_DISPLAY2(R9),-  ; Save display message bitmask in 
70 A8 019D 427 FAL$W_DISPLAY(R8) ; FAL work area 
se 8. 
019F 430 ; Process the DAP RAC field. ' 
019F 431 ; In addition to normal RMS-32 RAC information, this field specifies whether 
019F $36 3; the access is to be in: 
O19F 433; (1) file transfer mode or record transfer mode 
BIOF tge ; (2) block 1/0 mode or record 1/0 mode 
019F $38 : Note: If the RAC field is not present in the Control message, then the default 
O19F 437 ; action is to use the previous value. 
Sige 439 
O19F 440 ASSUME DAPSK_SEQ_ACC EQ 0 
O19F 441 ASSUME DAPSK"KEY-ACC €Q 1 
019F 44g ASSUME DAPSKIRFA-ACC EQ 3 
O19F 44 ASSUME DAPS$K_SEQ_FILE EQ 
O19F 444 ASSUME DAPS$K"BLK-VBN EQ 4 
OtOr rH ASSUME DAPSK_BLK_FILE EQ 5 
O19F 447 RAC_FIELD: ; Process record access field 
00 €0 O19F 448 BBS #DAPS$V_RAC,- ; Branch if RAC field was explicitly 
06 44 A9 ial 449 DAP$W_CTLMENU(R9),10$ ; specified | 
O1F7 C8 90 O1A4 450 MOVB FAL$B_RAC(R8) ,- ; If not, use previous value saved in | 
46 Ad 1A8 = 4451 DAPSB_RAC(R9) ; _FAL work area | 
a6 A9 90 O1AA 126 10$: MOVB DAP$B_RAC(R9) ,- ; Save currently specified value as 
O1F7 C8 1AD = 445 FAL$B_RAC(R8) 3 previous value for next-time-thru 
188 $33 SCASEB SELECTORSDAPSB_RAC (RD) ~ 3 Dispatch on DAP record access mode: 
18 $2$ 0$- : Sequential record access 
18 45 0$- ; Random access by key value 
18 $28 a : Random access by RF 
180 400 108 b SSPE scene be tan 
- 3 oc access 
18 461 oS. : Block 1/0 sequsattol file transfer 
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FALACTMSG = STATE TABLE ACTION ROUTINES 16-SEP-1984 01:36:4 AX/VMS Macro v04-00 Page 
y04-000 FALSDECODE_CTL ety 7 8:78:58 FAL.SRCJFALACTMSG.MAR; 1 . 
180 $66 > 3 
1C1 te $ 
101 = 464 Updets the RAC field of the RAB unless block 1/0 mode is specified. 
+2: rt 3 (RMS-32 ignores the RAC field on block I/0 operations.) 
1C1 169 ; Also update the file transfer mode and block I/0 flags as appropriate 
1C1 468 ; for the access mode invoked. 
1C1 rh 4 3 
1€1 470 
Biel 471 ASSUME DAP$K_SEQ_ACC EQ RABSC_SEQ 
1C1 Ak; ASSUME DAPS$K_KEY_ACC EQ RABSC_KEY 
oie) $f? ASSUME DAPSK_RFA_ACC EQ RABSC_RFA 
46 A9 90 O1C1 475 208: MOVB DAP$B_RAC(RY) ,- ; Store record access mode in RAB 
1E AB 0104 476 ABSB-RAC(R115 ; (either SEQ, KEY, or RFA) 
0106 477 SCLRBIT #FALSU_FTM, (R8) ; Say record transfer mode 
08 11 OCA 478 BRB 35$ : 
16 AB 00 90 O1CC 479 308: MOVB #RABSC_SEQ,RABSB_RAC(R135;Set record access mode to SEQ in RAB 
01D0 480 SSETBIT #FALSV_FITM, (RB) ; Say file transfer mode 
01D4 481 35$: SCLRBIT #FALSV_BLK_IO, (R8) ; Say record 1/0 mode 
OE 11 01D8 tBs BRB ROP_FIELD : 
01DA ‘ 40$: SCLRBIT #FACSV_FTM, (R8) ; Say record transfer mode 
04 11 ONDE 484 BRB 55$ ; 
O1EO 485 508: SSETBIT #FALSV_FTM, (R8) ; Say file transfer mode 
O1E4 486 55$: SSETBIT #FALS$V_BLK_IO, (R8) 3; Say block I/0 mode 
O1E8 487 
O1E8 488 ;+ 
at ret ; Process the DAP ROP field. 
Q1E8 491 ; Note: If the ROP field is not present in the Control message, then the default 
O1E8 $36 ; action is to use the previous value. 
O1E8 493 ;- 
O1E8 494 : 
Q1E8 495 ROP_FIELD: ; Process record options field =sdyr 
03 €1 O1E8 496 BBC #DAPSV_ROP,- ; Branch if ROP field was not explicitly 
44 Ad O1EA 497 DAPSW_CTLMENU(R9) ,- i specified making previous ROP vaiue 
07 glee 498 KRF_F 3 the current value 
51 50 A9 pO OED 499 MOVL DAPSL_ROP(R9) ,R1 3; Get DAP ROP bits 
02F7 30 gr) 0 BSBW MAP_ROP_FIELD ; Update ROP options in RAB 
O1F4 288 s¢ 
Q1F4 503 ; Process the DAP KRF field. : 
Bice ene 3: This field is applicable only for indexed files. 
Sika 282 : Note: If the KRF field is not present in the Control message, then the default 
O1F4 a4 3 action is to use the previous value. 
O1F4 08 ;- 
1F4 509 : 
1F4 510 KRF_FIELD: ; Process hey of reference field 
02 €1 OFS = 511 BBC #DAPSV_KRF ,- ; Branch if KRF field was not explicitly 
44 A9 166 318 DAPSW_CTLMENU(R9) ,- : specified making previous KRF value 
05 1F 51 KEY_F 3; the current value 
47 A9 = 90—s«01F9 14 MOVB DAPSB_KRF(R9) ,- ; Update key of reference value in RAB 
35 AB 1EC 13 RABSB_KRF (R115 : (meaningful only for indexed files) 
gee 1" 3% , 
1FE 18 ; Process the DAP KEY field. 
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TE E 
EC T 
1FE 19 ; Its format and content are context dgpendent: 
1FE 0; (1) for block 4° access, it contains the virtual block number for 
1FE 13 SREAD/S$WRI Fe or the number of blocks for S$SPACE. 
1FE ¢ : (2a) for sequential record access without the se | Limit option in force, 
1FE $ this field is ignored because RMS will use its internally stored 
1FE 6 3 next-record-pointer to locate the record. 
1FE 5 ; (2b) for sequential record access of an indexed file with the key Limit 
Bite 2 § 3 option set (i.e., ROP = LIM), it centering the key value string. 
1FE ; (3a) for random access by key value for relative (or fixed length 
O1IFE 528; sequential) files, it contains the relative record number. 
O1FE 529 ; (3b) for random access by key value for indexed files, it contains the 
pire 2 o 3 key value string. 
Oire 2 13 (4) for random access by record file address, it contains the RFA value. 
O1FE 338 
O1FE 534 KEY_FIELD: : Process the key field 
50 48 A9 7D OIFE 535 MOVa DAP$Q_KEY(R9) ,RO ; <RO,R1> => descriptor of key field 
47 68 09 €0 pede a3 BBS #FALSO_BLK_10,(R8),50$ ; Branch if block I/O access 
0206 3h ASSUME RABSC_SEQ EQ 0 
0206 539 ASSUME RABSC"KEY EQ 1 
bSo¢ ano ASSUME RABSC_RFA EQ 2 
0206 246 $CASEB SELECTOR=RAB$B_RAC(R11)-; Dispatch on RMS record access mode: 
0206 54 BASE=#RABS$C_SEO- 5 
0206 544 DISPL=<- 3 
0206 545 10$- ; Sequential record access 
0206 546 20$- 3; Random access by key value 
bSoe ef m 40$- ; Random access by RF 
01 €0 0511 549 108: BBS #DAPSV_KEY,- ; Update hey value only if KEY field 
1C 44 Ad 0213 550 DAPSW_CTLMENU(R9),30$ ; was explicitly specified 
4D 11 0216 551 8 ; ALL done with key field 
20 1D AA 91 0218 22¢ 20$: CMPB FABSB_ORG(R10) ,#FABSC_IDX;Branch if indexed file 
mas: Seve > Be BEQL 30$ ; Fall thru if sequential or relative 
O21E 554 
O21E 555; 
O21E 556; a4 field contains a relative record number (RRN). 
Osie e230 ; RMS requires that the RRN be a 4-byte unsigned integer value. 
O21E 559 ° 
34 AB 2O04~—S90 oss 560 MOVB #4,RABSB_KSZ(R11) ; Store size and address of buffer 
O1FC C8 DE 022 561 MOVAL FALS$L_NUABER(RB) ,- ; that will hold RRN valve 
30 6B oss8 266 RABSL_KBF (R11) 3: _in KSZ/KBF fields of RAB 
04 00 61 5 2c 6 MOVCS RO,(RT),#0,44,- 3 Copy RRN value as a longword to 
OFC C8 beep 564 FACSL_NUMBER(R8) ; buffer in FAL work area 
22 11 0230 20? BRB 60$ ; Join common code 
023 6 
6 : eh 3 Key field contains a key string. 
Bb i 
34 ag 50 90 023 71 30$: MOVB RO,RABSB_KSZ(R11) ; Store size and address of buffer 
0 9° C8 ODE 6 i MOVAL FALS$T_KEYBUF (R8),- ; that will hold key string value 
AB A 7 RABSL_KBF (R11) 3 _in KSZ/KBF fields of RAB 
0700 c8 61 50 28 § 74 MOVC3 RO, (RT), FALST_KEYBUF (R8); Copy string to buffer in FAL work area 
21. «11 «024 75 BRB 90$ : ALL done with key field 
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| 
44 26 
44 (3 
44 of : Key field contains a record file address (RFA). 
8 “2 ; RMS requires that the RFA be a 6=-byte unsigned integer value. 
0244 :* | 
CS WwW &.. WwW « eee 35 ¢ 40$: MOVCS RO,(R1),#0,46,- 3; Store RFA value directly in RFA field 
10 AB 0249 5 RABSW_RFACRI15 ; of RAB (zero extended to 6-bytes) 
07 «#+11 8 re eRe BRB 60$ 3; Join common code 
0240 3 6 ; | 
8 4D 2 (3: key field contains virtual block number (VBN). 
8 re 389 ; RMS requires that the VBN be a 4-byte unsigned integer value. 
0240 590 ° 
as OO tw $ Se 591 50$: MOVCS RO,(R1),#0,44,- ; Store VBN value directly in BKT field 
38 AB OS2¢ 235 RABSL_BKT(R115 ; of RAB (zero extended to longword) 
Ser 594 Py | 
0254 595 ; Common code to verify that the length of the string in the DAP KEY field 
O§3¢ 298 ; does not exceed the size of the buffer used to store the string. 
$586 598 * 
OF 1B 0254 599 60S: BLEQU§ 90% i Done if all SRC bytes are copied 
0256 600 $ i.e., SRC size LEQU DST size) 
81 95 0256 601 70$: TSTB (R1)+ : Error if any unmoved bytes are 
05 12 0258 on6 BNEQ 80$ 3 non-zero 
F9 50 F5 O25A 60 SOBGTR RO,70$ ; Continue until all extra bytes 
06 11 O25D 604 BRB 90$ 3 are checked 
FD9E' 30 O25F 605 80$: BSBW FALSUNS_KEY ; Return error in Status message 
0324 «31 beoe one BRW EXIT_FATLURE ; Exit state with failure 
0265 608 ; 
0265 609 ; Use the CTLFUNC field value as the next state table value. 
0568 ell | 
40 Ad «90 0265 216 90$: MOVB DAPS$B_CTLFUNC(R9),- ; Store new state transition value 
10_A8 0268 61 FAL$B_ VALUE (R8) 3 ; 
O31F 31 O26A 614 BRW EXIT_SUCCESS ; Exit state with success 
spi ha senectinicitapmescisaninguidpeianentontann ee et prenen 
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6D $18 -SBTTL FALSDECODE_CON 

6D «61 

6D 618 ;++ 

re 21? ; Process the Continue Transfer message which has been received and validated. 

6D 621° 

6D 6 ¢ FALSDECODE_CON:: ; Entry point 

8 oe 

4 ? ; : Use the CONFUNC field value as the next state transition table value. 

6D 627° 

9p ? 8 9),- 3; Store new state transition value 

8 630 : Exit state with success 
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y04-000 FALSDE CODE. CMP Brera be Biiteses FRAC seca ecYase mans 1 ° 
7 6 § -SBTTL FALSDECODE_CMP 
: $8 s+ 
7 635 : Process the Access Complete message which has been received and validated. 
4 ? g + Update the FAB if necessary. 
75 «638° 
4 63s FALSDECODE_CMP:: ; Entry point 
73 641 ; 
7 otg 3; Process the DAP FOP field. 
75 645 ; Do not update the FOP field in the FAB if this is a DAP DISCONNECT function 
8 fe ete ; or if no FOP field was included in the Access Complete message. 
0275 646 
51 44 AY 09 0275 647 MOVL DAPSL_FOP2(R9) ,R1 ; Get DAP FOP bits 
03 13 C279 648 BEQL 1 ; Branch if no bits to map 
01¢6 30 0278 649 BSBW MAP_FOP_FIELD ; Update FOP in FAB 
O27E 650 
O27E 651; 
O27E 626 3 Use the CMPFUNC field value as the next state table value. 
gore esa | 
0A9 90 O27E 655 10$: MOVB DAP$B_CMPFUNC(R9) ,- ; Store new state transition value 
10 a8 0281 656 FAL$B~ VALUE (R8) 3 
306 «631 «20283)—Sss 657 BRW EXIT SUCCESS ; Exit state with success 
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FALACTMSG = STATE TABLE 
v04-000 FALSDECODE_KEY -SEP- 4 01:16:2 FAL.SRCJFALACTMSG.MAR; 1 (10) | 
6 659 -SBTTL FALSDECODE_KEY 
6 660 
6 661 ;++ 
6 006 ; Process the key Definition message which has been received and validated. 
? 907 3; Update the KEYKAB (by key of reference) with information from this message. | 
6 665 
6 006 FALSDECODE_KEY:: : Entry point 
6 66 | 
0286 668 ; : 
0286 96? ; Initialize the epprogeiece Key Definition XAB (in the FAL work area) and 
8 $e 6/9 3; process the DAP REF field. 
0286 or¢ | 
56 6C AD QA 0286 67 MOVZBL DAPSB_REF(R9),R6 ; Get key of reference value 
FD73" 30 O28A 674 BSBW FALSINIT_KEYXAB ; On return R7 = address of XAB 
03 50 8 0280 675 BLBS RO,10$ 3; Branch on success 
02-6 31 0290 676 BRW EX{T_FAILURE : Exit state with failure 
0293 677 ; (i.e., ignore this DAP message) 
OS38 678 
029 679 ; 
0293 680 ; Process the DAP KNM field. 
a4 681 ; 
0293 ong 
OS38 o87 ASSUME FALSK_KEYNAM EQ 32 
64 AD DS 0293 685 108: TSTL DAP$Q_KNM(R9) ; Branch if no key name string was 
0B 13 0296 686 BEQL : specified 
64 A9 2C 0298 687 MOVCS DAPS$Q_KNM(R9),- ; Copy_DAP key name etring 
89 0298 688 @DAP$O_KNM+4(R9) ,- ; to 32 byte key name buffer 
38 B7 620 = 8600 0290 689 #0,#32,@XABSL_KNM(R7) ; with zero fil 
03 11 O2A1 690 BRB 30 3 
38 A? 4 ash? $3) 208: CLRL XABSL_KNM(R7) ; Zero key name buffer address 
02A6 693; 
02A6 694 ; Process the DAP FLG field. 
02A6 695 ; 
02A6 696 
51 48 A9 9A 02A6 697 30$: MOVZBL DAPSB_FLG(R9),R1 ; Get DAP FLG bits 
52 D4 O2AA 698 CLRL R2 ; Clear RMS FLG bits 
bsat 699 SMAPBIT DAPS$V_DUP,XABS$V_DUP 3; Map DUP bit 
02B4 700 SMAPBIT DAPS$V_CHG,XABSV_CHG ; Map CHG bit 
02BC 701 SMAPBIT DAPS$V_NUL_CHR XABSV_NUL ; Map NUL bit 
12 a7 52 90 0 ce 108 MOVB R2,XAB$B_FLG(R7) t Update FLG field in XAB 
02C8 704 ; 
bse 2 3; Process the DAP DFL, IFL, NUL, IAN, LAN, DAN, and DTP fields. 
0 cB 707 ° 
10 AZ 44 A9 90 C 708 MOVB DAPSW_DFL(R9) ,XABSW_DFL(R7) 
1A A7 46 A9 90 CD 709 MOVB DAPSW_IFL(R9) ,XABSW_IFL(R7) 
15 A? 6D Ad 90 De 710 MOVB DAP$B_NUL(R9) , XABSB_NUL (R7) 
0B A? «+6E A9 «90 (OeD? «711 MOVB DAPS$B-I1AN(R9) .XABS$B_IAN(R7) 
09 A? «6F AD) «90-0 2DC ar MOVB DAPS$B“LAN(R9) .XAB$B_LAN(R7) 
OA A7 0 Ad 3 E1 71 B DAP$B_DAN(R9) , XABSB_DAN(R7) 
13 A7 71 a9 9 4 at MOVB DAP$B_DTP(R9) ,XAB$B_DTP(R7) 
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EB 716; | 
EB 4 : Process the DAP NSG, POS, and SIZ fields. 
4 n3 : Note: FALSDECODE_MSG guarantees that 0 < DAPSB_NSG < 9. 
EB 721° 
56 49 AD 9A cE 7 § MOVZBL DAPS$B_NSG(R9) ,R6 ; Get # ney segments 
14 A7 56 90 OCEF 7 MOVB. R6,XAB$B_NSG(R7) ; Update NSG field in XAB 
5C AD. 56s 3 724 MOVC3 R6,DAP$B PAS SAY? o® ; Copy 1 to 8 key size values 
2€ A7 F? 725 XABSB_SIZ(R7) ; to XAB 
56 = 556 9) 78 F977? $ ASHL +4) oR6,R6 : Double byte count 
A9 $ 28 OoFD 7? MOVC3 R6,DAPSW POS(R9) ~ : Copy 1 to 8 key position values 
16 A 0 7 8 ttt _POS(R7) : to XAB 
ae 
9 731 : Ignore the DAP RVB, DVB, DBS, IBS, LVL, TKS, and MRL fields as these are not 
8 4 § : Nputs to RMS 
0 . 4 : Finish paper work and exit. 
0305 736° 
030 737 
0308 738 : Denote XAB to add to XAB chain 
0281 31 0308 739 BRW EXIT_SUCCESS ; Exit state with success 


SSETBIT #FALSV_KEYXAB,FALSW_RECEIVED(R8) 
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= STATE TABLE ACTION ROUTINES 1 
FALSDECODE_ALL 


SNS 


> > eee et ee 


“SEP-1984 
“SEP=1984 


~SBTTL FALSDECODE_ALL 


++ 
; Process the Allocation messa 
; Update the ALLXAB (by AID) 


FALSDECODE_ALL:: 


; Initialize the omrereecie 
; process the DAP 


MOVZBL DAPS$B_AID(R9) ,R6 
Boas FALSINIT T_LALLXAB 


RO-10$ 
BRW EX{T_FAILURE 


Process the DAP ALN field. 


ASSUME DAPSK_ANY EQ 0 


DAPSK_-CYL EQ XABSC_CYL 


1:36:4 
1:16:2 
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e which has been received and validated. 
with information from this message. 


3; Entry point 


+ ene XAB (in the FAL work area) and 


Get area ID value 
On return R7 = address of XAB 
Branch on success 


(i.e., ignore this DAP “message? 


10$: 


ASSUME 
MOVB 


DAPSK_LBN EQ XABSC_LBN 
DAPSK_VBN EQ XABSC_VBN 


DAPS$B_ALN(R9) , XABSB_ALN(R7) 


: Process the DAP AOP field. 


i ae paPse_ AOP(R9) ,R1 


LRL : 
$MAPBIT DAPSV “HRD XAB$V_HRD : 
SMAPBIT DAPS$V~C BIg, XABSV_CBT ses: 
SMAPBIT DAP$V— ab XABSV~CTG ; 
SMAPBIT DAP$V-ONC,XABS$V_ONC ; 

“OVB R2, XABSE  ROPERYT ; 


: Process the DAP VOL, LOC, ALQ, BKZ, and 


MOVW  § DAP$W_VOL(R9) ,XABSW_VO 
MOVL  DAPS$LZLOC(R9) -XABSL~LO 
MOVL § DAPSLTALQ2(R95 ,XABSC_A 
MOVB AP$B~BKZ(R9) ,XABSB_BK 
MOVW  DAPSW ~DEQ2CROS. XABS@_D 


: Finish paper work and exit. 


; Get DAP AOP bits 
; Clear ag as bits 


} 
| 
| 
Exit state with failur 
bit 
Update AOP field in XAB 


DEQ fields. 
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0360 798 SSETBIT #FALSV_ALLXAB,FALSW_RECEIVED(R8) 
0365 799 ; Denote XAB to add to XAB chain 
0224 31 0365 800 BRW EXIT_SUCCESS ; Exit state with success 
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ACTION ROUTINES 
-SBTTL FALSDECODE_TIM 
Process the Date and Time messa 
Initialize both the DATXAB and 
FALSDECODE_TIM:: 


; Initialize and fill-in the Date and Time XAB. 


BSBW 
MOVQ 


MOVQ 
MOVQ 
MOVQ 
MOVW 


: Initialize 


BSBW 
MOVQ 


MOVW 


Finish paper work and exit. 
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which has been received and validated. 
XAB and update them with information from 
this message. Other action routines will determine which of the two XABs to 
; to use (or both) depending on the function that will be performed. 


; Entry point 


On return R7 = address of XAB 
Copy creation date and time 
binary value to XAB 
Copy revision date and time 
binary value to XAB 
Copy expiration date and time 
binary value to XAB 
date and time 
binary value to XAB 
Store revision number value in XAB 


Sete te Ge Se Se Se Se Se Ge Se 


and fill-in the Revision Date and Time XAB. 


; On return R7 = address of XAB 

; Copy revision date and time 

; binary value to XAB 

; Store revision number value in XAB 


Oct Be TAD i< Denote XABs to add to XAB chain 


Exit state with success 
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BEQL 


FALSDECODE_PRO:: 


-SBTTL FALSDECODE_PRO 


FALSINIT PROXAB 
XABSL_UIC(R7) 
#-1,XABSW_PRO(R7) 


: Process the DAP OWNER field. 


DAPSQ 17 dati 
(R5) ,P*A\C\ 
=1(R5)CR4I,#*A\I\ 
308 


: R4 
#*AN,\,R4,(R5) 


R1 

a3 
#3,G*LIBSCVT_OTB 
(SP), XABSW_MBM(R7) 
R5 

Rd 
#3,G*LIBSCVT_OTB 
(SP) ,XABSW_GRP(R7) 
XABSW_MBM(R7) 
(SP)+ 


: Process the DAP PROSYS, PROOWN, PROGRP, 


r Oi: 8:36 artes: Macro V04-00 


FAL.SRCJFALACTMSG.MAR; 1 


: Process the Protection message which has been received and validated. 
; Update the PROXAB with information from this message. 


Entry point 

On return R7 = address of XAB 
Initialize ure gnd protection mask 
fields to [0,0] and -1. These mean 
use process UIC and default process 
protection in effect, respectively 


Get descriptor of ASCII otrone 

Branch if string does not begin 
with bracket 

Branch if string does not end 
with bracket 

Discard brackets 


Locate group-member delimiter 
Branch on failure 

<R4,R5> => group string 
<RO,R1> => member string 


Allocate space from stack 

Address of result 

Address of input string 

Size of input string 

Convert octal string to binary 
Branch on failure 

Update member UIC value in XAB 
Address of result 

Address of input string 

Size of input string 

Convert octal string to binary 
Branch on failure 

Update group UIC value in XAB 

UIC has been successfully converted 
GRP is invalid, so also discard MBM 
Deallocate space from stack 


PROWLD fields. 


Use default file protection in effect 
or the user process if all four 
protection fields of the DAP 
rotection message were defaulted 
(i.e., omitted from message) 
Branch if no fields explicitly sent 


K 11 
FALACTMSG = STATE TABLE ACTION ROUTINES 16=SEP=-1984 01:36: AX/VMS Macro V04-00 Page FAL 
HoKeb00 FALSDEEODE. PRO g-S6F =1382 81:78:36 crt SRCJFALACTMSG.MAR; 1 ° (id) v04 
4 0 A a 4 9 5 ie parry SS 4 4 Me R 3; Map system bits 
4 A F 4 § NSV =PROUN RS >, 44, ; Map owner bits 
4 8 & F 4 INSV ULD(RS) of 0: Map group bits 
4 OC 56409 FO 04 : INSV Apa Rg) 6A hy 4nd 0: Map world bits 
08 A7 50 8B0 Bec 44 MOVW 0,xXAB R7) 3; Update protection mask in XAB 
41C 911; 
041C a ; Finish paper work and exit. 
041C 915; 
041C 914 
041C 915 40$: SSETBIT #FALSV_PROXAB,FALS$W_RECEIVED(R8) 
be54 916 i Denote XAB to add to XAB chain 
0168 31 0421 917 BRW EXIT_SUCCESS ; Exit state with success 


= STATE TABLE ACTION ROUTINES 
FALSDECODE _NAM 


= 


-SBTTL FALSDECODE_NAM 


eae 


~1386 81:36:66 ere Macro V04-00 Page fay 


FAL.SRCJFALACTMSG.MAR; 1 


p++ 
; Process the name message which has been received and validated. 
; Update FAB2 with information from this message. 


Sa 


: NOTE: At this time, only a rename operation will cause a Name message to be 


; returned by FAL. 


FALSDECODE_NAM:: 
MOVAL 


; Get address of filename desc 


Entry point 
Put new filename FAB (FAB2) in R10 
Store size of new filespec string 


n 
Copy the filespec string to buffer 


ri 
; Log requested new name in print 


; Restore old filename FAB in 
; Exit state with success 
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FALACTMSG = STATE TABLE ACTION ROUTINES 16-SEP-1984 01:36:46 VAX/VMS Macro v04-00 Page 25 
v04-000 SUPPORT ROUTINES -SEP-1984 te 2:16:21 LPALSRCIFALACTMSG-MAR: 1 ° (3) 
444 941 -SBTTL SUPPORT ROUTINES 
444 348 
444 94 | 
444 44 -SBTTL MAP_FOP_FIELD 
444 945 
444 308 p++ 
444 947 ; This routine maps DAP FOP bits into RMS FOP bits and stores the result in 
Bee are 3 the FOP field of the FAB. 
444 950 ; R1 contains the DAP bitmask on input. 
444 951 ; R2 is destroyed on output. 
444 326 ;-- 
444 5 
444 954 MAP_FOP_FIELD: 3; Entry . oe 
52 D4 0444 955 CLRL R2 ; Clear RMS Fop bits 
51 05 044 956 TSTL R1 3: Examine FOP bitmask 
03 12 044 957 BNEQ 10$ ; Begin mapping if any bits are set 
0090 31 044A 958 BRW 208 ; Branch if there are no bits to map 
044D 959 10S: SMAPBIT DAPS$V_RWO,FABSV_RWO 3; Map RWO bit 
0455 960 SMAPBIT DAPSV_RWC,FABSV_RWC 3; Map RWC bit 
0450 961 SMAPBIT DAP$V_POS ,FABSV_ POS 3; Map POS bit 
0465 96 SMAPBIT DAPS$V_CTG,FABSV_CTG 3; Map CTG bit 
046D 96 SMAPBIT DAP$V_ “SUP, FABSV— SUP 3 Map SUP bit 
0475 964 SMAPBIT DAPSV_NEF ,FABSV_NEF 3 Map NEF bit 
047D 965 SMAPBIT DAPS$V— “TMP, FABSV_TMP 3; Map TMP bit 
0485 966 SMAPBIT DAPS$V— ~TMD,FABSV_TMD : Map TMD bit | 
048D 967 SMAPBIT DAPS$V_ ~0M0,FABSV— DMO 3; Map DMO bit 
0495 968 SMAPBIT DAP$V_ ~WCK ,FABSV_WCK 3; Map WCK bit 
049D 969 SMAPBIT DAP$V VIRCK,FABSV_ RCK 3; Map RCK bit 
04A5 970 ; sxe $MAPBIT DAPSV_CIF ,FABSV_CIF 3; Map CIF bit 
04A5 971 $MAPBIT DAP$V_SQ0,FAB$V_SQ0 3; Map SQ0 bit 
O4AD 3f8 SMAPBIT DAPSV_MXV,FABSV_MXV 3; Map MXV bit 
0485 97 SMAPBIT DAPS$V_SPL,FABSV_SPL ; Map SPL bit 
048 974 SMAPBIT DAP$V— “SCF ,FABSV_SCF 3; Map SCF bit 
04C¢ 975 SMAPBIT DAPS$V_DLT,FABSV_DLT :; Map DLT bit 
0400 976 SMAPBIT DAP$V_CBT,FABSV_CBT 3; Map CBT bit 
0405 977 ; sexe $MAPBIT DAPSV_DFW,FABSV_DFW 3; Map DFW bit 
0405 §=978 SMAPBIT DAPSV_TEF ,FABSV_TEF 3; Map TEF bit | 
0400 979; SMAPBIT DAP$V_ “OFP,FABSV_ OFP ; Map OFP bit 
04DD 3B 3; Note: this bit has no meaning here 
0400 981 ; pecpuse only priaery filespec 
04DD oRs is being given to RMS by FAL 
0404 AA 18 €1 O4Dp 983 20$: BBC #FABSV NAM. FABSL_FOP(R105, 30$ 
pe 984 SSETBIT #FABSV-NAM.R2 ; Preserve state of NAM bit in FOP 
04 AA 52 D0 O4ES 985 30S: -MOVL-RE-FABSL- FOP(RIO) ; Update FOP field in FAB | 
05 O4EA 986 RSB ; Exit | 
| 
| 


} 
N11 
FALACTMSG - STATE TABLE ACTION ROUTINES 1 mth 9 01:36:36 AX/VMS Macro v04-00 Page 26 
v04- MAP_ROP_FIELD -SEP=1984 01:16:21 CFAL.SRCJFALACTMSG.MAR; 1 (16) | 
4EB 9 8 -SBTTL MAP_ROP_FIELD 
ie 3 0 ;+ 7 
4EB 334 ; This routine maps DAP ROP bits into RMS ROP bits and stores the result in 
rt} 838 3; the ROP field of the RAB. 
4EB 994 ; R1 contains the DAP bitmask on input. 
4EB 995 ; R2 is destroyed on output. 
4EB 338 te 
4EB 99 
0O4EB 998 MAP_ROP_FIELD: 3 Entry point 
2¢ D4 Rees 999 CLRL Re ; Clear RMS ROP bits 
1 D5 Q4ED 1000 TSTL 8 : Examine ROP bitmask 
03 12 O4EF 1001 BNEQ 10$ ; Begin mapping if any bits are set 
0090 31 O4F1 1906 BRW 20$ ; Branch if there are no bits to map | 
O4F4 10035 10$: SMAPBIT DAPSV_EOF ,RABSV_EOF ; Map EOF bit 
O4FC 1004 SMAPBIT DAP$V_FDL,RABSV_FDL ; Map FDL bit | 
0504 1005 SMAPBIT DAPS$V_UIF ,RABSV_UIF ; Map UIF bit 
050C 1006 SMAPBIT DAP$V_LOA,RABSV_LOA 3; Map LOA bit 
0514 1007 SMAPBIT DAP$V_ULK,RABSV_ULK ; Map ULK bit 
051¢ 1008 SMAPBIT DAP$V_TPT,RABSV_TPT : Map TPT bit 
0524 1009 SMAPBIT DAPSV_RAH,RABSV_RAH ; Map RAH bit 
052C 1010 SMAPBIT DAPSV_WBH,RABSV_WBH ; Map WBH bit 
0534 1011 SMAPBIT DAPSV_KGE ,RABSV_KGE 3; Map KGE bit 
053¢ 101g SMAPBIT DAPSV~KGT,RABSV_KGT ; Map KGT bit 
0544 101 SMAPBIT DAPSV_NLK,RABSV_NLK ; Map NLK bit 
t 054C 1014 SMAPBIT DAPSV_RLK ,RABSV_RLK 3; Map RLK bit 
0554 1015 SMAPBIT DAP$V-ROPBIO,RABSV_BIO ; Map BIO bit 
055c 1016 SMAPBIT DAPSV~LIM,RABSV_LIA : Map LIM bit | 
0564 1017 SMAPBIT DAPSV_NXR,RABSV_NXR ; Map NXR bit 
056C 1018 SMAPBIT DAPS$V_ROPWAT,RABSV WAT ; Map WAT bit 
0574 1019 $MAPBIT DAP$V-RRL,RABSV_RRC ; Map RRL bit | 
057C 1020 SMAPBIT DAP$V_REA,RABSV_REA ; Map REA bit : 
04 AB «52 «DO 0584 1021 208: MOVL R2,RAB$L_ROP(R1T) ; Update ROP field in RAB 
05 0588 1022 RSB : Exit 


] 
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FALACTMSG = STATE TABLE ACTION ROUTINES 16-SEP=1984 01:36:46 VAX/VMS Macro V04-00 Page 27 one 
v04-000 — EXIT ROUTINES 5-SEP=1984 01:16:21 CFAL.SRCIJFALACTMSG.MAR;1 (17) 
4 i ‘ ~SBTTL STATE EXIT ROUTINES | 
2 R68 3% ; 
9 1 3; Exit state with failure. 
9 1028 ;-- 
9 1029 
9 1050 EXIT_FAILURE: 3 Entry point 
9 1031 CLRL RO 3; Si at" state transition failure 
' 1% § RSB ; Exit to state table manager | 
C 1034 ;++ 
C 1035 ; Exit state with success. 
E88 | 
C 1038 EXIT_SUCCESS ; Eotry point 
C 1039 #1,R0 : signal state transition success 
F 1040 3 t to state table manager 
0 1041 
0 1042 : End of module | 
| 
| 
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- STATE TABLE ACTION ROUTINES 01:36:46 yan/vas Macro v04-00 
Symbol table 1:16:21 CFAL.SRCJFALACTMSG.MAR; 1 
SSCOUNT 0000000 DAPS$K_BLK_VBN 0004 
DAP$B_ACCFUNC 8 0 3 95 DAP$K_BLN™ 65 $66c0 
DAP$B_ACCOPT 98 4) DAPS$K_CNF_MSG = 3808] 
DAP$B_AID 00000050 DAPSK_CY = 00000001 
DAP$B_ALN 0000044 DAP$K-DECVER_V = 00 44 
DAP$B_AOP Bee See DAP$K~ECONUM_V = 00000000 
DAP$8_BITCNT 0000035 DAPSK_FIX = 00000001 
DAP$B_BKS 00000050 $K_ID = 00000020 
DAP$B_BKZ seed DAPS$K_-KEY_ACC = 00000001 
DAP$B_BLKCNT 0000056 P$K~LBN = He N abe 
DAP$B_BSZ 0000005 DAP$K-LOAD = OQOOQOOFF 
DAP$B_CMPFUNC BORO ee DAPSK_REL = 300000 
DAP$B_ CONF UNC 000004 DAPS$K-RFA_ACC = 0 
DAP$B_CTLFUNC 09000040 DAPSK_RMS32 = 0000000 
DAP$B_DAN 00000070 DAP$K_SEQ = 00000000 
DAPSB_DATATYPE 00000044 DAP$K_SEQ_ACC = 00000000 
DAP$B_DBS 0000007C¢ DAPS$K_SEQ_FILE = 00000003 
DAP$B_DCODE_F ID 00000019 DAPSK_STG = 00000000 
DAP$B_DCODE —MAC 00000018 DAPSK_STM = 00000004 
DAP$B_DCODE "MSG Q000001A DAPS$K-STMCR = 00000006 
DAP$B_DE 00000047 DAPSK_STMLF = sy ga 
DAP$B_DTP 00000071 DAP$K-SYSCAP1_V = EFFO/7DF7 
DAP$B_ECONUM 00000045 DAPS$K_SYSCAP2_V = 00001962 
DAP$B_F AC 444 694 DAPSK _UDF = 00000000 
DAP$B_FILESYS 0000004 DAPS$K _USRNUM_V = 00000000 
DAP$B_FLAGS 00060031 DAP$K_USRVER_V = 00000000 
DAP$B_F 00000048 DAPSK_VA = 00000002 
DAP$B_FSZ 00000051 DAPSK_VAXVMS = 00000007 
DAP$B_IAN 0000006E DAP$K_VB = 00000003 
DAPS$B_IBS 0000007D DAPS$K_VERNUM_V = 00000007 
DAP$B_KRF 00000047 DAPSK_VFC = 00000003 
APSB_LA 0000006F DAP$L_ALQ1 0000004C 
DAP$B_LEN256 00000034 DAPSL_AL 0000004C 
DAP$B_LENGTH 00000033 DAPS$L_ATTMENU BRO RO CSO 
DAP$B_LVL 0000007E DAPSL_CMW 0000030 
DAP$B_ NAME TYPE 00000040 DAP$L-CRC_RSLT 00000020 
DAP$B8_NSG 00000049 DAPS$L_DCOBE_STS 00000018 
DAP$B8_NU 0000006D DAPSL_DEV 444 
DAP$B_ORG 00000045 DAPSL_OVB 0000007 
DAP$B_OSTYPE 00000042 DAPSL_EB 00000078 
AP$B_RAC 00000046 DAPS$L_FOP1 00000064 
DAP$B_RAT 00000047 DAPS$L_FOP2 00000044 | 
DAP$B_REF 0000006C¢ $L-HBK 00000074 | 
DAP$B_RFM 880 O48 DAPSL_KEYMENU 90080048 
DAP$B_ SHR 000004 DAP$L-LOC 4 
DAP$B_S1Z 0000005C DAPSL_MRN 00000058 
DAP$B_S1Z_ TMP 0000004A DAPSL-MSG_MASK 000001¢ 
DAP$B_STREAMID ase SE DAPSL_ROP 0000050 
DAP$B_TKS 000007F DAPSL_RVB 44d 
DAP$B_TYPE $0008 0 DAP$L_SB 0 oo7 
DAP$B_USRNUM 00 rt DAPSL-SSPWA 000 4 
DAP$B_USRVER 000004 DAPSL_SSP_CAP 00000 
DAP$B_VERNUM 0000044 DAPSL_SSP"FLG 0 4 
DAP$B_X FIELD 24 DAPS$L_ TEMP 9 
DAP$C_BCN CO DAPSM_BITCNT = 0 
DAP$K~ ANY = 30 DAPSM_BLKCNT = 04 
DAPS$K_BLK_F ILE 2 DAPSM_CMPFMT = 00000008 


FALACTMSG 
Symbol table 


DAPSM_DF TSPEC 


DAPSM_DMO 
DAPSM_DSP_SNAM 
DAPSM_EMBEDDED 
DAPSM_GET 


DAPS$M_GO_NOGO 


DAP$Q~CDT 
DAP$Q~DCODE_FLG 


DAP$Q_ 
DAP$Q_F ILESPEC 
DAP$Q_KEY 
DAP$Q_K 
DAP$Q_MSG_BUF 1 
DAP$Q_MSG_ BUF 2 
DAP$Q_NAMESPEC 
DAP$Q_OWNER 
DAP$Q_ PASSWORD 
DAP$Q_PDT 


DAPSV~CR 
DAP$V~CTG 
DA 


DAP$V_DUP 
DAPSV_EOF 
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DAPS$V~ROP 
DAPS$V-ROPBIO 
DAPSV-ROPWAT 


DAPS$V~SHRPUT 
DAP$V~SHRUPD 
DA PL 


DAPSV~UPI 
DAPSV~VAXVMS 
DAPSV"WBH 
DAPSV-WCK 
DAPSW~ALLMENU 
APSW"BLS 


DAPSW~BUF SIZ 
DAPSW~ CHECK 


L. 


OOOCOCOCOCOOoooOo —o 


DOOOCCGCOOSCOooO 


DOOOOOOOOOOOOoO ws 


SOOOCCOCOOOCOOCOCOOCOCOOOCOOOOOSCOOOOOOOOOCOOOOOOOOOOooOO 
COOOCOCOCOGOCOCOCOCOOCOCOOOCOOOCOOCOOOSOSOSOSOOOSCOO COCO OOOOO OOOO OOOoOoOOo 


mM 
S 


S Macro VO 
RCJFALAC 


E 12 

FALACTRSG = STATE TABLE ACTION ROUTINES 1G-$EP-1984 01:36:46 VAX/VINS Macro v04=00 Page 30 yore 
Symbol table ~SEP=1986 01:16:21 CFAL.SRCJFALACTMSG.MAR; 1 C17) 
DAPSW_CTLMENU 000044 F ABSV_DMO = 00¢ 

DAPSW_DEGI 00054 F ABSV-EXE = 

DAPSW_DEQ2 e FABSV~F IN : 0 

DAPSW_DFL 4 F ABSV"GET = 

DAPSW_DISPLAY! 90006¢ FABSV RXV 2 1 

DAPSW_DISPLAY2 34 FABSV-NAM = 018 

DAPSW_FFB 000072 FABSV_NEF = 00 oa 

DAPSW_IF 900004 FABSV-NIL = 00000005 
DAPSWILRL 000007 F ABSV—POS = 9000000 
DAPSU_ARL 900007 F ABSV_PRN = 0000000 
DAPSW_ 0000004A F ABSV-PUT = 0000000 
DAPSW_PARTNER 9909 06 FABSV-RCK : 00 001 
DAP$W_PO 4C FABSV-RWC = 08 
DAPSW_POS TMP 0000044 F ABSVRWO = 0000000 
DAPS$SwW_PROGRP 00000054 FABSV_SCF : a4 

APSW_PROMENU 00000040 F ABSV~SHRDEL = 0000000 
DAP$W_PROOWN 90000052 F ABSV~SHRGE T = 00000001 
DAPS$W_PROSYS 0000005 FABSV_SHRPUT z 90000000 
DAP$W_PROWLD 9000005 F ABSV~SHRUPD = 0000000 
DAPSW_RVN 0000004 F ABSVSPL = 00000000 
DAPSW_SSP_MENU 0000008 F ABSVSQ0 = 00000006 
DAPSW_TIMENU 00000040 F ABSV~SUP = 00000002 
DAPSW_VERSION 00000004 FABSVTEF = 0000001C | 
DAPSW”VOL 90000042 FABSV-TMD = 00000004 | 
EXIT_FAILURE 00000589 R 02 FABSV-TMP = 00000003 
EXIT-SUCCESS 0000058¢ R 02 FABSV-TRN = 00000004 | 
FABSE_BKS = 0000003E F ABSV_UPD = 00000003 
FABSB_FAC = 00000016 F ABSV-UPI = 00000006 
F ABSB_FNS = 00000034 FABSV-WCK = 00000009 
FABSB_FSZ = 0000003F FABSW_BLS = 0000003¢ | 
F ABSB_ORG = 0000001D FABSW_DEQ = 00000014 | 
FABSB_RAT = 0000001E FABSW "MRS = 00000036 | 
FABSB_RFM = 0000001F FALSBOILD_HEAD eeeeenee = X 02 
FABSB_SHR = 00000017 FALSBUILD TAIL aeneeeee =X = 02 
FABSC_F IX = 00000001 FALSB_ACCFUNC 900001F 6 | 
FABSC_IDX = 00000020 FAL$B_ACCOPT Q00001F 
FABSC_REL = 00000010 FAL$B_DATATYPE Q00001F4 
FABSC_SEQ = 00000000 FALSB_DI SABLE 90000006 | 
FABSC_STM = 00000004 FALSB_ENABLE 90000005 | 
FABSC_STMCR = 00000006 FALSB_LOGGING 00000004 | 
FABSC_STMLF = 0000000 FALSB_MISCOPT 90000007 | 
F ABSC_UDF = 00000000 FALSB_RAC 000001F 7 | 
FABSC_VAR = 9000000¢ FALSB-RBK_ CACHE 00000012 | 
FABSC_VFC = 84d FALSB_RCVBUF IDX Bont) 
FABSL-ALG = 00000010 FALSE VALUE 0000010 

FABSL—FNA = 0000002C FALSCOT_BNS EXT eeereeee = X 02 
FABSL_FOP = 00000004 FALSC_WRKBLA 0002000 

FABSL_MRN = 00000038 FALSDECODE_ACC 0000108 RG 0 

FABSM_CR 2 0 FALSDECODE~ALL 0 308 RG =O 

FABSV~B10 = FALSDECODE-ATT AB RG 

FABSV-BLK = 00000 F AL SDE CODE CMP 75 RG 

F ABSVBRO = 00000006 F AL SDECODE-CNF 00 RG 

FABSV~CBT = 0000001 FAL SDECODE—CO D RG 

FABSV-CR = 00000001 FALSDECODE CTL @ RG 

FABSV~CTG = 00000014 F ALSDECODE-KEY 286 RG 

F ABSV~DEL = 00000002 F ALSDECODE—NAM 0000424 RG 

FABSV-DLT = 0000000F F ALSDECODE_PRO 0398 RG 


F 12 , 
-SEP- 1:36:4 AX/VMS Macro V04-00 Page 31. 
SyRDOL. table De Ty ek conee "BrSEp=19B6 O1:ie:a1 LPALLERCIPALACTMSG. MAR; 1 dh 
ym | 
1¢ | 
FALSDECODE Tm oe FALST“FitESpec 0690 | 
FALSINIT ACLXAB eereeree x FAL$T-FILESPEC2 388 
FALSINIT_DATXAB eeeeeeee =X FAL$T_KEYBUF 0700 
FALSINIT KEYXAB eeeeeeee =X 8 FAL$T_MBXBUF 1980 
FALSINIT_PROXAB eeeeeeee KX 0 FALS$T-PRTBUF 1 0001A00 
FALSINIT-RDTXAB 5 Seoceees FALST_PRTBUE] 0001800 | 
pas fee ‘ $9002000 FALS$T-RESULT 44 0 
FALSK WRKBLN eeerenee XxX FALST-RESULT2 0000800 | 
FALSLOG_REQNAM eteerene x og FALST_SYSNET 44 91444 
we ae 000¢00 F ALST~VOL NAME 000100 | 
Te $000007% FALSUNS_KEY eeeeveee =X 02 
FALSL_ “ALLXABINI 90088 oe PALSY ACC XAB - 90000001 | 
FALSL_CHAIN_NXT BODO sop FALSVTATT MSG = 00000001 
FALSL_DATXAB a ETA FAL SV-BLR TIO “ 90000009 
aS 69000800 FALSV~CNF “MSG = 90000000 
FALSL_FABC O00002F4 FALSV~DIS~CRC = 00000030 
FALSL-FOP 8000iF8 FALSV-D1S-MBK = 00000051 
Lfe 90001 C00 FALSV_F TM = 00 
de tes tbr 00001000 FALSVIKEYXAB = 00000000 
FALSLOKEYXAB 0000078 FALSVILAST_MSG = 00000018 
re a sean FAL -Cee 08s = 89390083 
FAL SooootEC FALSV-USE-SC1 = 0000003¢ | 
FACS HARD, 0000034¢ FAL$V-USE_SC2 = 00000030 | 
tae pae 00000250 FALSV-USE~SYS = 0000003 | 
rete 0000005¢ FALSV-USE-VER = 00000038 
FALSL_RCVBUF 0000380 FALSV “WILD = 0000000A 
cae po0000eC F ALSU~DAPBUE S17 00000014 | 
FALSL_RMS_PTR 000000C0 FAL$W DISPLAY 00000070 
FALSL_STB itdtatt FALSWZLNKCHN 0000001¢ | 
FALSL_SUMXAB 00003F4 FALSW"MBXCHN 0000001 | 
Pete. 80000088 FALS$W~Q1OBUF $12 0000001 | 
FALSL_USE_SC1 OOOOAC FALS$W_RECEIVED 0000007 | 
FALSL_USE_SC2 SOO OOOAL FALSW-USE_DBS 000000A0 | 
FALSL—USE-VER = pope bonG FALSWUSE-SYS 000000A2 
FALSH_DATRAB = 90900090 KEY_FTELD™ QOOO0IFE R 02 | 
FALSO“BLD * 00000050 KRF-FIELD OO0001F4 R02 | 
FA BLD 0000088 LIBSCVT OTB aererene x 02 
pe te-Bneee 90000090 MAP_FOP{FIELD 00000644 R 02 | 
FALSOCFLG 9000000 NAPE ROPE FIELD dnoaad ss a, 
FAL$Q—MBX 59900030 RABSECRS? = 00000054 
HA seaant mpreee = Sean 
FAL$Q _RCVIOSB 4 RABSC RFA = 000 
FALSQ_RM ih RABSC_SEQ = 0000 
Fat son SYSNET 000 38 RABSL_BKT = 0000 
FAL$Q_TERP nati RABSL “ROP = 00000004 
oe teva B08 $44 RABS$V_B1O . 00 $e 
pee 0000002 RABSV_EOF = 2900080 
FAL$Q_ XMT1OSB eerenere XxX 02 RABSV_FDL sa 8 
FALSTRANS I 0001 RABSV KGE = 0001 
FALST_DAP 0198 RABSV-KGT = 90000016 
FALST~EXPAND. 6 9500 RABSV-LIM ae 444 443 
FALST_EXPAND2 0000A00 RABSV_LOA 
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RABSV_NLK 
RABSV_NXR 
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FAB 
FAB 
FAB 
FAB 
FAB 
FAB 
FAB 
FAB 


FALACTMSG 
Psect synopsis 


bares a ee wm eeoemwe > 


! ; Psect Synopsis } 


Sree ee ren nr aneaeccea > 


PSECT name Allocation PSECT No. Attributes 

P : 00000000 ( 0.) 00 ( 0.) NOPIC USR CON ABS LCL N 

SABSS 00002000 8192. 01 ¢ 1.) NOPIC USR CON ABS LCL NOSH 

FALSCODE 00000590 ( 1424.) 02 ¢ 2.) NOPIC USR CON’ REL LCL NOSHR 
foewecs SH See me meas wmoaneeat 
H Performance indicators : 

Phase Page faults CPU Time Elapsed Time 

Initialization 37 00:00:00.05 0:00:01. 1 

Command processing 136 Sb Sh SE 0:00:02.39 

Pass 1 45 00:00:13.74 00:00:51.94 

Symbol table sort 0 00:00:01.65 00:00:04.98 

Pass 2 192 B88 08°88 00:00:10.29 

Symbol table output 59 00:00:00.30 00:00:00.60 

Psect synopsis output 1 00:00:00.03 00:00:00.73 

Cross-reference output 9 00:00:00.00 00:00:00.00 

Assembler run totals 88 00:00:19.00 00:01:12.55 


The working set Limit was 1950 pages. 

111221 bytes (218 pages) of virtual memory were used to byl ter the intermediate c 

There were 90 pages of symbol table space ai locates to hold 1637 non-local and 118° locos symbols. 
1042 source Lines were read in Pass 1, "sain ts object records in Pass 2. 

36 pages of virtual memory were used to define 35 macros. 


wees ee ses ese cen ee esos esmand 


Macro _tibrary name Macros defined 
“$255$DUA28: FAL.OBJJFAL.MLB; 1 20 
“$255$DUA28: (SYSLIBJSTARLET. MLB; 2 12 

TOTALS (all Libraries) 32 


2114 GETS were required to define 32 macros. 
There were no errors, warnings or information messages. 
MACRO/LIS=LIS$:F ALACTMSG/OBJ=OBJ$:FALACTMSG MSRC$:FALACTMSG/UPDATE=(ENHS$:F ALACTMSG) +LI1B$:FAL/LIB 


H 12 
- STATE TABLE ACTION ROUTINES i ot dot PS 91:36:86 rte Macro V04-00 
EP=1984 01:16:21 (CFAL.SRCJFALACTMSG.MAR;1 


OSHR NOEXE NORD NOWRT NOVEC BYTE 
HR EXE RD WRT NOVEC 
RD NOWRT NOVEC BYTE 
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